home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / graphics / a-g / fu / rexx / tester.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-12-21  |  1.3 KB  |  66 lines
  1. /* FU Arexxtester */
  2.  
  3. options results
  4.  
  5. ADDRESS REXX_FU
  6.  
  7. say 'FU-ArexxTester';say;
  8.  
  9. SetFormula 'NormFixPlaneC Julia'
  10. if RC~=0 then call AppError('SetFormula',RC);
  11.  
  12. SetZoom '-3.0 -2.4 3.0 2.4';
  13. if RC~=0 then call AppError('SetZoom',RC);
  14.  
  15. SetIter '30';
  16. if RC~=0 then call AppError('SetIter',RC);
  17.  
  18. SetInside 'Normal 15 -1'
  19. if RC~=0 then call AppError('SetInside',RC);
  20.  
  21. SetOutside 'BiomorphRel1 5 -1'
  22. if RC~=0 then call AppError('SetOutside',RC);
  23.  
  24. par1r=0.11031;    par1rs=0.01;
  25. par1i=-0.67037;    par1is=0.01;
  26.  
  27. do i=0 to 0
  28.     name='xh3:frames/julia.'right(i,3,'0');
  29.     say 'Working on : ' name;
  30.  
  31.     SetParam '1' par1r par1i;
  32.     if RC~=0 then call AppError('SetParam',RC);
  33.  
  34.     RenderPicture;
  35.     if RC~=0 then call AppError('RenderPicture',RC);
  36.  
  37.     SavePicture name '2'
  38.     if RC~=0 then call AppError('SavePicture',RC);
  39.  
  40.     par1r=par1r+par1rs;
  41.     par1i=par1i+par1is;
  42. end
  43.  
  44. ActivateFU;
  45. if RC~=0 then call AppError('ActivateFU',RC);
  46.  
  47. pull
  48.  
  49. ExitFU;
  50. if RC~=0 then call AppError('ExitFU',RC);
  51.  
  52. exit
  53.  
  54. AppError:procedure
  55.     cmd=arg(1);
  56.     ret=arg(2);
  57.     say 'Application Error';say;
  58.     say 'Command 'cmd' failed with Returncode 'ret;
  59.     select
  60.         when ret='1' then say '    => unknown command';
  61.         when ret='2' then say '    => unknown parameter';
  62.         otherwise say '    => unknown returncode';
  63.     end
  64.     say;
  65. return
  66.